#!/usr/bin/perl

$d1="000000000001";
$node1="n1";
$node2="n2";
$node11="n11";
$node12="n12",
$d2="000000000002";
$d3="000000000003";

@testdata= (
	# [ node, time in minutes, [ bt, bt ], msg_to, success ]
	[ $node1, 1, [ $d1 ], $d1, -1 ],
	[ $node1, 2, [ $d1 ], $d1, -1 ],

	[ $node1, 10, [ $d1 ], $d1, 1 ],
	[ $node1, 12, [ $d1 ], $d1, -1 ],
	[ $node1, 14, [ $d1 ], $d1, -1 ],

	[ $node1, 20, [ $d1 ], $d1, -1 ],

	[ $node1, 30, [ $d1 ], $d1, 1 ],
	[ $node1, 32, [ $d1 ], $d1, 1 ],
	[ $node1, 35, [ $d1 ], $d1, -1 ],

	[ $node1, 130, [ $d1 ], ],
	[ $node1, 133, [ $d1 ], ],
	[ $node1, 136, [ $d1 ], ],

	[ $node2, 1, [ $d1 ], ],
	[ $node2, 3, [ $d1 ], ],

	[ $node2, 10, [ $d1 ], ],
	[ $node2, 12, [ $d1 ], ],
	[ $node2, 14, [ $d1 ], ],

	[ $node2, 20, [ $d1 ], ],

	[ $node2, 30, [ $d1 ], ],
	[ $node2, 32, [ $d1 ], ],
	[ $node2, 35, [ $d1 ], ],

	[ $node2, 130, [ $d1 ], ],
	[ $node2, 133, [ $d1 ], ],
	[ $node2, 136, [ $d1 ], ],

	[ $node11, 1, [ $d1, $d2 ], ],
	[ $node11, 2, [ $d1, $d2 ], ],

	[ $node11, 10, [ $d1, $d2 ], ],
	[ $node11, 12, [ $d1, $d2 ], ],
	[ $node11, 14, [ $d1, $d2 ], ],

	[ $node11, 20, [ $d1, $d2 ], ],

	[ $node11, 30, [ $d1, $d2 ], ],
	[ $node11, 32, [ $d1, $d2 ], ],
	[ $node11, 35, [ $d1, $d2 ], ],

	[ $node11, 130, [ $d1, $d2 ], ],
	[ $node11, 133, [ $d1, $d2 ], ],
	[ $node11, 136, [ $d1, $d2 ], ],

	[ $node12, 1, [ $d1, $d2 ], ],
	[ $node12, 3, [ $d1, $d2 ], ],

	[ $node12, 10, [ $d1 ], ],
	[ $node12, 12, [ $d1 ], ],
	[ $node12, 14, [ $d1 ], ],

	[ $node12, 20, [ $d1, $d2 ], ],

	[ $node12, 30, [ $d1, $d2 ], ],
	[ $node12, 32, [ $d1, $d2 ], ],
	[ $node12, 35, [ $d1, $d2 ], ],

	[ $node12, 130, [ $d1, $d2 ], ],
	[ $node12, 133, [ $d1, $d2 ], ],
	[ $node12, 136, [ $d1, $d2 ], ],

	[ $node1, 230, [ $d1, $d2 ], $d2, -2],
	[ $node1, 232, [ $d1, $d2 ], $d2, 2],
	[ $node1, 235, [ $d1, $d2 ], ],

	[ $node2, 230, [ $d2, $d3 ], $d3, -3],
	[ $node2, 233, [ $d2, $d3 ], $d3, 3],
);
